home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_icc.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  3.2 KB  |  94 lines
  1. %    Copyright (C) 2001, 2002 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_icc.ps 8962 2008-08-11 14:16:18Z ken $
  17. % ICCBased color space method dictionaries.
  18. % This assumes gs_ciecs2.ps has already been processed.
  19.  
  20. .currentglobal true .setglobal
  21.  
  22. % gs_res.ps uses these entries in colorspacedict
  23. % to populate the ColorSpaceFamily resource, so we need
  24. % to add the supported spaces.
  25. %
  26. systemdict /colorspacedict get begin
  27. /ICCBased [] def
  28. end
  29.  
  30. NOPSICC { (%END PSICC) .skipeof } if
  31. % Now set up ICC profile loading for PostScript %%BeginICCProfile sections.
  32.  
  33. systemdict begin
  34. /.ProcessICCcomment { % file comment --  file comment
  35.   dup
  36.   (%%BeginICCProfile) anchorsearch {
  37.     pop pop
  38.     DEBUG { (.ProcessICCcomment found %%BeginICCProfile) print flush } if
  39.  
  40.     % load an ICC profile defined as comments (hex encoded).
  41.     % Ends with %%End at the start of a line. Read the data into
  42.     % a bytestring to allow seeking. This string can be used as a
  43.     % seekable ReusableStreamDecode filter source by the ICC logic.
  44.     %
  45.     % Since .bigstring needs to know the size, we first read an array of
  46.     % strings each 64000 max length.
  47.     %
  48.     % stack: --file-- (%%BeginICCProfile: ...) 
  49.     1 index 0 (%%EndICCProfile) /SubFileDecode filter
  50.     [ { counttomark 1 add index
  51.         64000 string readhexstring
  52.         not { exit } if
  53.       } loop
  54.     ] exch closefile
  55.     0 1 index { length add } forall
  56.     .bigstring
  57.     exch 0 exch {
  58.       % stack: --file-- (%%BeginICCProfile: ...) --bytestring-- cur_index --string--
  59.       2 copy length add     % calculate next string start point
  60.       3 1 roll 3 index 3 1 roll putinterval
  61.     } forall
  62.     pop                % discard length of bytestring
  63.     % make a seekable -file- out of the bytestring
  64.     mark /AsyncRead true .dicttomark /ReusableStreamDecode filter
  65.     % stack: --file-- (%%BeginICCProfile: ...) --icc_subfile-- 
  66.     /DeviceCMYK setcolorspace
  67.     << /DataSource 3 -1 roll
  68.        /N 4        % Try CMYK first
  69.     >> { .seticcspace } stopped {
  70.       /DeviceRGB setcolorspace
  71.       dup /N 3 put  { .seticcspace } stopped {
  72.         /DeviceGray setcolorspace
  73.         dup /N 1 put { .seticcspace } stopped {    % last choice
  74.           QUIET not { (   *** Unable to load ICC profile from PostScript DSC comments ***) = flush } if
  75.           pop
  76.         } if
  77.       } if
  78.     } if
  79.   } {
  80.     pop % Not interested in this DSC comment
  81.   } ifelse
  82. } bind def
  83.  
  84. % Merge ProcessICCcomment with existing handler
  85. /.ProcessICCcomment load /exec load
  86. currentuserparams /ProcessDSCComment get 
  87. dup null eq {pop {pop pop}} if /exec load
  88. 4 array astore cvx readonly
  89. << /ProcessDSCComment 3 -1 roll >> setuserparams
  90.  
  91. end    % systemdict
  92. %END PSICC
  93. .setglobal
  94.